home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -serious- / wb / amyinfo / amyinfo.c < prev    next >
C/C++ Source or Header  |  1999-07-12  |  15KB  |  649 lines
  1.  
  2. /*    AmyInfo v1.3 by Digital Design, Inc.
  3.  
  4.     Author: Juha Tuominen
  5.     Released: 30-Jun-91        */
  6.  
  7. #include <exec/types.h>
  8. #include <exec/memory.h>
  9. #include <exec/execbase.h>
  10. #include <exec/tasks.h>
  11. #include <libraries/dos.h>
  12. #include <devices/timer.h>
  13. #include <intuition/intuitionbase.h>
  14. #include <graphics/rastport.h>
  15. #include <graphics/gfx.h>
  16. #include <graphics/gfxmacros.h>
  17. #include <graphics/text.h>
  18. #include <proto/all.h>
  19. #include <string.h>
  20. #include <stdio.h>
  21. #include <stdlib.h>
  22.  
  23. #define FONTSIZE 8
  24. #define NAME "AmyInfo"
  25. #define STACK_SIZE 1000L    /* Meisseli-Make's stack size */
  26.  
  27. BOOL    task_added=FALSE;
  28. BOOL    timeropen=FALSE;
  29. BOOL    keepgoing=TRUE;
  30. BOOL    time_requested=FALSE;
  31. BOOL    log=FALSE;
  32. BOOL    init=TRUE;
  33. char    *months[]={"","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"};
  34. char    date[16]="               ";
  35. char    tempdays[8]="       ";
  36. char    timetemp[8]="       ";
  37. char    booted[80];
  38. int        upsecs=0,upmins=0,uphours=0,updays=0;
  39. ULONG    maxchip, maxfast, freechip=0, freefast=0;
  40. ULONG    cputime=NULL,cputemp=NULL,prevcpu=68;
  41. ULONG    count=0;
  42. ULONG    chipscale=0, fastscale=0;
  43. ULONG    jakaja=0,cputemp2=0;
  44. char    *taskname="Meisseli-Make";
  45. APTR    stack=NULL;
  46. USHORT    ditherdata=0x5555;
  47. int        tempmins,cpuload=0;
  48.  
  49. extern    struct ExecBase    *SysBase;
  50. struct    IntuitionBase *IntuitionBase=NULL;
  51. struct    Window *window=NULL;
  52. struct    GfxBase *GfxBase=NULL;
  53. struct    MsgPort *timerport=NULL;
  54. struct    timerequest *timermsg=NULL;
  55. struct    IntuiText abouttext[];
  56. struct    IntuiText proceed;
  57. struct    Task *task=NULL;
  58. struct    NewWindow mywindow = 
  59. {
  60.     100,
  61.     100,
  62.     400,
  63.     76,
  64.     0,1,
  65.     CLOSEWINDOW | MOUSEBUTTONS,
  66.     SMART_REFRESH | WINDOWDRAG | WINDOWCLOSE | WINDOWDEPTH | RMBTRAP,
  67.     NULL,
  68.     NULL,
  69.     NAME,
  70.     NULL,
  71.     NULL,
  72.     NULL,
  73.     NULL,
  74.     NULL,
  75.     NULL,
  76.     WBENCHSCREEN
  77.  
  78. };
  79.  
  80. struct TextAttr aifont[1] =
  81. {
  82.     {(UBYTE *)"topaz.font",8,FS_NORMAL ,FPF_ROMFONT},
  83. };
  84.  
  85. struct IntuiText abouttext[7] =
  86. {
  87.     {2,1,JAM1,8, 4,(struct TextAttr *)&aifont[0],(UBYTE *)"AmyInfo v1.3",(struct IntuiText *)&abouttext[1]},
  88.     {2,1,JAM1,8,14,(struct TextAttr *)&aifont[0],(UBYTE *)"by Juha Tuominen",(struct IntuiText *)&abouttext[2]},
  89.     {2,1,JAM1,8,22,(struct TextAttr *)&aifont[0],(UBYTE *)"Copyright (c) 1991",(struct IntuiText *)&abouttext[3]},
  90.     {2,1,JAM1,8,30,(struct TextAttr *)&aifont[0],(UBYTE *)"Digital Design, Inc.",(struct IntuiText *)&abouttext[4]},
  91.     {2,1,JAM1,8,38,(struct TextAttr *)&aifont[0],(UBYTE *)" ",(struct IntuiText *)&abouttext[5]},
  92.     {2,1,JAM1,8,46,(struct TextAttr *)&aifont[0],(UBYTE *)"Meisseli-Make has found",(struct IntuiText *)&abouttext[6]},
  93.     {2,1,JAM1,8,54,(struct TextAttr *)&aifont[0],(UBYTE *)"0 perfect numbers.",(struct IntuiText *)NULL}
  94. };
  95.  
  96. struct IntuiText proceed =
  97. {
  98.     2,1,JAM1,5,3,(struct TextAttr *)&aifont[0],(UBYTE *)"Continue",(struct IntuiText *)NULL
  99. };
  100.  
  101.  
  102.  
  103. void cleanexit(int error);
  104. void openthings(void);
  105. void copyfile(char *source, char *dest);
  106. void addtimerequest(long secs, long micros);
  107. void currenttime(void);
  108. void changefont(void);
  109. void initgraphics(void);
  110. void printfinetext(char *text,int x,int y,int color);
  111. ULONG maxmemsize(long memtype);
  112. void idletask(void);
  113. void __saveds switchroutine(void);
  114.  
  115. void CXBRK(void) 
  116. { 
  117.     cleanexit(0);
  118. }
  119.  
  120. void cleanexit(int error)
  121. {
  122.     if(task_added) RemTask(task);
  123.     if(task) FreeMem(task,sizeof(struct Task));
  124.     if(stack) FreeMem(stack,STACK_SIZE);
  125.     if(timeropen)
  126.     {
  127.         if(time_requested)
  128.         {
  129.             AbortIO((struct IORequest *)timermsg);
  130.             WaitIO((struct IORequest *)timermsg);
  131.         }
  132.         CloseDevice((struct IORequest *)timermsg);
  133.     }
  134.     if(timermsg) DeleteExtIO((struct IORequest *)timermsg);
  135.     if(timerport) DeletePort(timerport);
  136.     if(window) CloseWindow(window);
  137.     if(GfxBase) CloseLibrary(GfxBase);
  138.     if(IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  139.     exit(error);
  140. }
  141.  
  142.  
  143. void openthings(void)
  144. {
  145.     FILE    *fp;
  146.  
  147.     if(!DeviceProc("AmyInfo:") && log)
  148.     {
  149.         printf("\aAmyInfo: not assigned\n");
  150.         cleanexit(10);
  151.     }
  152.     if(!DeviceProc("T:") && log)
  153.     {
  154.         printf("\aT: not assigned\n");
  155.         cleanexit(10);
  156.     }
  157.     if (!(GfxBase=(struct GfxBase *)OpenLibrary("graphics.library",33L)))
  158.     {
  159.         printf("\aError opening GfxBase\n");
  160.         cleanexit(30);
  161.     }
  162.     if (!(IntuitionBase=(struct IntuitionBase*)OpenLibrary("intuition.library",33L)))
  163.     {
  164.         printf("\aError opening IntuitionBase\n");
  165.         cleanexit(30);
  166.     }
  167.     if(!(timerport=CreatePort(0,0)))
  168.     {
  169.         printf("\aError creating timerport\n");
  170.         cleanexit(22);
  171.     }
  172.     if(!(timermsg=(struct timerequest *) CreateExtIO(timerport, sizeof(struct timerequest))))
  173.     {
  174.         printf("\aError creating timerequest\n");
  175.         cleanexit(22);
  176.     }
  177.     if(OpenDevice("timer.device", UNIT_VBLANK, ((struct IORequest *) timermsg), 0))
  178.     {
  179.         printf("\aError opening timer.device\n");
  180.         cleanexit(22);
  181.     }
  182.     timeropen=TRUE;
  183.     if(!(window=OpenWindow(&mywindow)))
  184.     {
  185.         printf("\aError opening window\n");
  186.         cleanexit(27);
  187.     }
  188.     if(!(stack=AllocMem(STACK_SIZE, MEMF_CLEAR)))
  189.     {
  190.         printf("\aCannot allocate stack for idletask\n");
  191.         cleanexit(10);
  192.     }
  193.     if(!(task=(struct Task*)AllocMem(sizeof(struct Task),MEMF_CLEAR|MEMF_PUBLIC)))
  194.     {
  195.         printf("\aCannot create idletask\n");
  196.         cleanexit(10);
  197.     }
  198.  
  199.     maxchip=maxmemsize(MEMF_CHIP);
  200.     maxfast=maxmemsize(MEMF_FAST);
  201.  
  202.     /*    Because we run this part only once we just have to assume that user 
  203.         does not add memory cartiges while this program is running :) */
  204.  
  205.     chipscale=maxchip/142;
  206.     fastscale=maxfast/142;
  207.     changefont();
  208.     if(log)
  209.     {
  210.         currenttime();
  211.         if(!(fp=fopen("AmyInfo:SystemLog","a")))
  212.         {
  213.             printf("\aUnable to open AmyInfo:SystemLog - check for protect bits!\n");
  214.             cleanexit(10);
  215.         }
  216.         fputs(booted,fp);
  217.         fclose(fp);
  218.         copyfile("AmyInfo:SystemLog","T:TEMP.AmyInfo");
  219.     }
  220.  
  221. }
  222.  
  223. void copyfile(char *source, char *dest)
  224. {
  225.     FILE    *fpsource,*fpdest;
  226.     char    store[80]="AmyInfo!";
  227.     
  228.     if(!(fpsource=fopen(source,"r")))
  229.         cleanexit(10);
  230.     else
  231.     {
  232.         if(!(fpdest=fopen(dest,"w")))
  233.             cleanexit(10);
  234.         else
  235.         {
  236.             while(store[0]!=NULL)
  237.             {
  238.                 fgets(store,80,fpsource);
  239.                 fputs(store,fpdest);
  240.             }
  241.             fclose(fpdest);
  242.         }
  243.         fclose(fpsource);
  244.     }
  245. }
  246.  
  247. void addtimerequest(long secs, long micros)
  248. {
  249.     time_requested=TRUE;
  250.     timermsg->tr_node.io_Command=TR_ADDREQUEST;
  251.     timermsg->tr_time.tv_secs=secs;
  252.     timermsg->tr_time.tv_micro=micros;
  253.     SendIO((struct IORequest *)timermsg);
  254. }
  255.  
  256.  
  257. void currenttime(void)
  258. {
  259.     long    n;
  260.     int        m,d,y,hours,mins,secs;
  261.     char    temp[16],uptemp[40];
  262.     long    v[3];
  263.     struct    DateStamp ds;
  264.     FILE    *fp;
  265.  
  266.     DateStamp((struct DateStamp *)v);
  267.     n=v[0]-2251;
  268.     y=(4*n+3)/1461;
  269.     n-=1461*(long)y/4;
  270.     y+=84;
  271.     m=(5*n+2)/153;
  272.     d=n-(153*m+2)/5+1;
  273.     m+=3;
  274.     if (m>12)
  275.     {
  276.         y++;
  277.         m-=12;
  278.     }
  279.  
  280. /*    Date stamp conversation routine from Robert A. Peck's book 
  281.     'Programming Guide to the Amiga. Routine by Tom Rokicki. */
  282.  
  283.     sprintf(temp,"%02d-%3s-%02d",d,months[m],y);
  284.     if(strcmp(temp,date))
  285.     {
  286.         printfinetext(temp,70,38,2);
  287.         strcpy(date,temp);
  288.     }
  289.  
  290.     DateStamp(&ds);
  291.     hours=ds.ds_Minute/60;
  292.     mins=ds.ds_Minute%60;
  293.     secs=ds.ds_Tick/50;    
  294.  
  295.     sprintf(temp,"%02d:%02d:%02d",hours,mins,secs);
  296.     if(strcmp(timetemp,temp))
  297.     {
  298.         strcpy(timetemp,temp);
  299.         printfinetext(temp,70,25,2);
  300.         if(++upsecs>59)
  301.         {
  302.             upsecs=0;
  303.             if(++upmins>59)
  304.             {
  305.                 upmins=0;
  306.                 if(++uphours>23)
  307.                 {
  308.                     uphours=0;
  309.                     updays++;
  310.                 }
  311.             }
  312.         }        
  313.         if(init)
  314.         {
  315.             sprintf(booted,"\nBooted: %s  %s\n",date,temp);
  316.             tempmins=mins;
  317.             init=FALSE;
  318.         }
  319.         sprintf(uptemp,"%02d:%02d:%02d",uphours,upmins,upsecs);
  320.         printfinetext(uptemp,230,25,2);
  321.     }
  322.  
  323.     sprintf(temp,"%04d",updays); /* I think 9999 days is enough for most of people :) */
  324.     if(strcmp(temp,tempdays))
  325.     {
  326.         printfinetext(temp,230,38,2);
  327.         strcpy(tempdays,temp);
  328.     }
  329.     if(tempmins-mins==45 || mins-tempmins==15)
  330.     {
  331.         tempmins=mins;
  332.         copyfile("T:TEMP.AmyInfo","AmyInfo:SystemLog");
  333.         if(!(fp=fopen("AmyInfo:SystemLog","a")))
  334.             cleanexit(10);
  335.         else
  336.         {
  337.             sprintf(booted,"Uptime: %s %s    Average CPU load: %d %%\n",temp,uptemp,100-cpuload);
  338.             fputs(booted,fp);
  339.             fclose(fp);
  340.         }
  341.     }
  342. }
  343.  
  344. void changefont(void)
  345. {
  346.     struct    TextAttr    textattr;
  347.     struct    TextFont    *textfont;
  348.  
  349.     textattr.ta_Name="topaz.font";
  350.     textattr.ta_YSize=FONTSIZE;
  351.     textattr.ta_Style=FS_NORMAL;
  352.     textattr.ta_Flags=FPF_DESIGNED | FPF_ROMFONT;
  353.  
  354.     if(textfont=OpenFont(&textattr))
  355.         SetFont(window->RPort,textfont);
  356.     else
  357.     {
  358.         printf("Cannot open topaz 8!\n");
  359.         cleanexit(10);
  360.     }
  361. }
  362.  
  363. void initgraphics(void)
  364. {
  365.     printfinetext("Time:",10,25,3);
  366.     printfinetext("Date:",10,38,3);
  367.     printfinetext("UpTime:",160,25,3);
  368.     printfinetext("Days:",160,38,3);
  369.     printfinetext("Chip:         K",10,51,3);
  370.     printfinetext("Fast:          K",160,51,3);
  371.  
  372.     SetDrMd(window->RPort,JAM1);
  373.     SetAPen(window->RPort,1);
  374.     Move(window->RPort,310,69);
  375.     Draw(window->RPort,310,18);
  376.     Draw(window->RPort,390,18);
  377.     Move(window->RPort,7,69);
  378.     Draw(window->RPort,7,59);
  379.     Draw(window->RPort,148,59);
  380.     Move(window->RPort,152,69);
  381.     Draw(window->RPort,152,59);
  382.     Draw(window->RPort,303,59);
  383.     SetAPen(window->RPort,2);
  384.     Draw(window->RPort,303,69);
  385.     Draw(window->RPort,153,69);
  386.     Move(window->RPort,148,60);
  387.     Draw(window->RPort,148,69);
  388.     Draw(window->RPort,8,69);
  389.     Move(window->RPort,390,19);
  390.     Draw(window->RPort,390,69);
  391.     Draw(window->RPort,310,69);    
  392. }
  393.  
  394.  
  395. ULONG maxmemsize(long memtype)
  396. {
  397.     ULONG blocksize=0;
  398.     struct MemHeader *MemHeader;
  399.  
  400.     Forbid();
  401.         for(MemHeader=(struct MemHeader *)SysBase->MemList.lh_Head;MemHeader->mh_Node.ln_Succ;MemHeader=(struct MemHeader *)MemHeader->mh_Node.ln_Succ)
  402.         {
  403.             if(MemHeader->mh_Attributes&memtype)
  404.                 blocksize+=((ULONG)MemHeader->mh_Upper-(ULONG)MemHeader->mh_Lower);
  405.         }
  406.     Permit();
  407.  
  408.     return(blocksize);
  409.  
  410.     /* MaxMemSize() by Louis A. Mamakos. */
  411. }
  412.  
  413.  
  414. void updatememorybar(void)
  415. {
  416.     ULONG currentchip, currentfast;
  417.     long tempx;
  418.     char temp[16];
  419.  
  420.     currentchip=AvailMem(MEMF_CHIP);
  421.     currentfast=AvailMem(MEMF_FAST);
  422.  
  423.  
  424.     if(currentchip!=freechip)
  425.     {
  426.         sprintf(temp,"%05d",currentchip/1024);
  427.         printfinetext(temp,70,51,2);
  428.  
  429.         tempx=currentchip/chipscale;
  430.         SetDrMd(window->RPort,JAM1);
  431.         if(freechip>currentchip)
  432.         {
  433.             SetAPen(window->RPort,0);
  434.             RectFill(window->RPort,tempx+10,61,freechip/chipscale+11,67);
  435.         }
  436.         SetAPen(window->RPort,3);
  437.         RectFill(window->RPort,10,62,tempx+10,66);
  438.         Move(window->RPort,tempx+11,61);
  439.         SetAPen(window->RPort,1);
  440.         Draw(window->RPort,tempx+11,67);
  441.         Draw(window->RPort,9,67);
  442.         SetAPen(window->RPort,2);
  443.         Draw(window->RPort,9,61);
  444.         Draw(window->RPort,tempx+11,61);
  445.         freechip=currentchip;                
  446.     }
  447.  
  448.     if(currentfast!=freefast)
  449.     {
  450.         sprintf(temp,"%05d",currentfast/1024);
  451.         printfinetext(temp,230,51,2);
  452.  
  453.         tempx=currentfast/fastscale;
  454.         SetDrMd(window->RPort,JAM1);
  455.         if(freefast>currentfast)
  456.         {
  457.             SetAPen(window->RPort,0);
  458.             RectFill(window->RPort,tempx+155,61,freefast/fastscale+156,67);
  459.         }
  460.         SetAPen(window->RPort,3);
  461.         RectFill(window->RPort,155,62,tempx+155,66);
  462.         Move(window->RPort,tempx+156,61);
  463.         SetAPen(window->RPort,1);
  464.         Draw(window->RPort,tempx+156,67);
  465.         Draw(window->RPort,154,67);
  466.         SetAPen(window->RPort,2);
  467.         Draw(window->RPort,154,61);
  468.         Draw(window->RPort,tempx+156,61);
  469.         freefast=currentfast;                
  470.     }
  471.     /* scale cputime to usable form - we've got 50 pixels to fill */
  472.     cputemp=(100*cputemp/60)/2;
  473.     ScrollRaster(window->RPort,1,0,311,19,389,68);
  474.     SetDrMd(window->RPort,JAM1);
  475.     SetAPen(window->RPort,3);
  476.     if(ditherdata==0x5555)
  477.         ditherdata=0xaaaa;
  478.     else
  479.         ditherdata=0x5555;
  480.     SetDrPt(window->RPort,ditherdata);
  481.     Move(window->RPort,389,68);
  482.     Draw(window->RPort,389,68-cputemp);
  483.     SetAPen(window->RPort,0);
  484.     Draw(window->RPort,389,19);
  485.     SetDrPt(window->RPort,~0);
  486.     SetAPen(window->RPort,1);
  487.     Move(window->RPort,388,prevcpu);
  488.     Draw(window->RPort,389,68-cputemp);
  489.     prevcpu=68-cputemp;
  490. }
  491.  
  492. void printfinetext(char *text,int x, int y, int color)
  493. {
  494.     int    tempy,
  495.         tempx,
  496.         len,
  497.         x1,
  498.         y1;
  499.     struct RastPort *rastport=window->RPort;
  500.  
  501.     SetDrMd(rastport,JAM2);
  502.     SetAPen(rastport,0);
  503.     SetBPen(rastport,0);
  504.     Move(rastport,x,y+2-FONTSIZE);
  505.     len=strlen(text);
  506.     tempy=y+2-FONTSIZE;
  507.     tempx=x+len*8;
  508.     x1=x+1;
  509.     y1=y+1;
  510.  
  511.     WaitTOF();
  512.  
  513.     /*     Uh, well .. I can't discover any better way to avoid the flickering.
  514.         Don't place AmyInfo too high on your WB-screen :)
  515.         It does not make any flickering on my big A, but I've got A2620..
  516.         The following part will take ~5-> lines to be executed */
  517.  
  518.     Draw(rastport,tempx,tempy);
  519.     SetAPen(rastport,1);
  520.     Move(rastport,x1,y1);
  521.     Text(rastport,text,len);
  522.     SetDrMd(rastport,JAM1);
  523.     SetAPen(rastport,color);
  524.     Move(rastport,x,y);
  525.     Text(rastport,text,len);
  526. }
  527.  
  528. void idletask(void)    /*    This is Meisseli-Make! */
  529. {
  530.     ULONG suurinluku=1,taydellinenluku,luku;
  531.  
  532.     Disable();
  533.         task->tc_Switch=switchroutine;
  534.         task->tc_Flags|=TF_SWITCH;
  535.     Enable();
  536.  
  537.     while(1)
  538.     {
  539.         taydellinenluku=0;
  540.         for(luku=suurinluku;luku>1;luku--)
  541.         {
  542.             if(!(suurinluku%luku))
  543.                 taydellinenluku+=luku;
  544.         }
  545.         if(taydellinenluku==suurinluku)
  546.             count++;
  547.         suurinluku++;
  548.     }
  549. }
  550.  
  551. void __saveds switchroutine(void)
  552. {
  553.     /*    Thanks to Juhani Vehvilainen for sweatting with me because of
  554.         this idle counting routine */
  555.  
  556.     cputime+=SysBase->Quantum-SysBase->Elapsed;
  557. }
  558.  
  559. void main(int argc, char *argv[])
  560. {
  561.     ULONG    timersignal, 
  562.             idcmpsignal, 
  563.             signals, 
  564.             class;
  565.     UWORD    code, 
  566.             qualifier;
  567.     struct    IntuiMessage *msg=NULL;
  568.     char    temp[80];
  569.     int        i;
  570.  
  571.     if(argc==2 && (!strncmp(argv[1],"?",1) || !strncmp(argv[1],"-?",2)))
  572.     {
  573.         printf("\nUsage: AmyInfo <LEFT> <TOP>\n");
  574.         printf("AmyInfo v1.3  Copyright (c) 1991 Juha Tuominen / Digital Design, Inc.\n\n");
  575.     }
  576.     else
  577.     {
  578.         if(argc>1)
  579.         {
  580.             for(i=1;i<=argc;i++)
  581.             {
  582.                 if(!strncmp(argv[i],"-log",4))
  583.                     log=TRUE;
  584.             }
  585.         }
  586.         if(argc>=3)
  587.         {
  588.             mywindow.LeftEdge=atoi(argv[1]);
  589.             mywindow.TopEdge=atoi(argv[2]);
  590.         }
  591.         
  592.         openthings();
  593.         initgraphics();
  594.  
  595.         timersignal = 1L << timerport->mp_SigBit;
  596.         idcmpsignal = 1L << window->UserPort->mp_SigBit;
  597.         addtimerequest(0,1);
  598.  
  599.         task->tc_Node.ln_Type=NT_TASK;
  600.         task->tc_Node.ln_Name=taskname;
  601.         task->tc_Node.ln_Pri=-128;
  602.         task->tc_SPLower=(APTR)stack;
  603.         task->tc_SPUpper=(APTR)(STACK_SIZE+(ULONG)stack);
  604.         task->tc_SPReg=task->tc_SPUpper;
  605.         AddTask(task,idletask,0L);
  606.         task_added=TRUE;
  607.  
  608.         while(keepgoing)
  609.         {
  610.             signals = Wait(timersignal | idcmpsignal);
  611.             if(signals & timersignal)
  612.             {
  613.                 GetMsg(timerport);
  614.                 addtimerequest(1,0);
  615.                 if(100*cputime/60<100)
  616.                     cputemp=cputime;
  617.                 cputemp2+=100*cputime/60;
  618.                 cpuload=cputemp2/++jakaja;
  619.                 cputime=0;
  620.                 currenttime();
  621.                 updatememorybar();
  622.                 sprintf(temp,"%d perfect numbers.",count);
  623.                 abouttext[6].IText=(UBYTE *)temp;
  624.             }
  625.             if(signals & idcmpsignal)
  626.             {
  627.                 while(msg=(struct IntuiMessage *)GetMsg(window->UserPort))
  628.                 {
  629.                     class=msg->Class;
  630.                     code=msg->Code;
  631.                     qualifier=msg->Qualifier;
  632.                     ReplyMsg((struct Message *) msg);
  633.  
  634.                     switch(class)
  635.                     {
  636.                         case CLOSEWINDOW:
  637.                             keepgoing=FALSE;
  638.                             break;
  639.                         case MOUSEBUTTONS:
  640.                             if(code==MENUDOWN)
  641.                                 AutoRequest(NULL,&abouttext[0],NULL,&proceed,NULL,NULL,272,128);
  642.                     }
  643.                 }
  644.             }
  645.         }
  646.     }
  647.     cleanexit(0);
  648. }
  649.